home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 6 / FM Towns Free Software Collection 6.iso / ms_dos / nifhand / rc.aut < prev    next >
Encoding:
Text File  |  1993-07-08  |  1.0 KB  |  68 lines
  1.  
  2. LABEL RC1
  3. SEND "MES\r",1
  4. WAIT "^J＞"
  5.  
  6. LABEL RC2
  7. ECHO "^G未読分処理：会議室番号を選んで下さい (+ﾘﾀｰﾝ) ＞"
  8. $10=input()
  9. SEND "MES $10\r",1
  10. LOOK
  11.  CASE "◆該当する会議室があり"
  12.   WAIT "^J＞"
  13.   GOTO RC2
  14.  CASE "コマンドを入力"
  15.   WAIT "^J＞"
  16.   GOTO RC2
  17.  CASE "^JCCS(N)>"
  18. FREE
  19.  
  20. ECHO "\r^Gどこまで未読分を飛ばしますか？ (ﾘﾀｰﾝｷｰ不要) ＞"
  21. ECHO "\r    1:100,  2:200,  3:300,  4:400,  5:500,  6:600"
  22. ECHO "\r    7:700, 8:800,  9:900,  0:全部(999),   E:終了 ＞"
  23.  
  24. LOOKKEY 60
  25.  CASE "1"
  26.   $11="100"
  27.  CASE "2"
  28.   $11="200"
  29.  CASE "3"
  30.   $11="300"
  31.  CASE "4"
  32.   $11="400"
  33.  CASE "5"
  34.   $11="500"
  35.  CASE "6"
  36.   $11="600"
  37.  CASE "7"
  38.   $11="700"
  39.  CASE "8"
  40.   $11="800"
  41.  CASE "9"
  42.   $11="900"
  43.  CASE "0"
  44.   $11="999"
  45.  CASE "E"
  46.   END
  47.  CASE "e"
  48.   END
  49.  CASE/TIMEOUT
  50.   END
  51. FREE
  52.  
  53. SEND "RC $11\r",1
  54. WAIT "^JCCS(N)>"
  55. ECHO "\r^G電子会議室の未読処理を続けますか？ (Y/N) (ﾘﾀｰﾝｷｰ不要) ＞\r"
  56. LOOKKEY 60
  57.  CASE "Y"
  58.   GOTO RC1
  59.  CASE "y"
  60.   GOTO RC1
  61.  CASE "N"
  62.  CASE "n"
  63.  CASE/TIMEOUT
  64. FREE
  65. $11=""
  66. END
  67.  
  68.